library(Seurat)
all10x <- readRDS('/projects/pytrik/sc_adipose/analyze_10x_fluidigm/data/10x')
matrix <- as.matrix(all10x@data)
gene <- as.numeric(matrix['EBF2', ])
correlations <- apply(matrix, 1, function(x){cor(gene, x)})

LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKCmBgYHtyfQpsaWJyYXJ5KFNldXJhdCkKYWxsMTB4IDwtIHJlYWRSRFMoJy9wcm9qZWN0cy9weXRyaWsvc2NfYWRpcG9zZS9hbmFseXplXzEweF9mbHVpZGlnbS9kYXRhLzEweCcpCmBgYAoKCmBgYHtyfQptYXRyaXggPC0gYXMubWF0cml4KGFsbDEweEBkYXRhKQpnZW5lIDwtIGFzLm51bWVyaWMobWF0cml4WydFQkYyJywgXSkKY29ycmVsYXRpb25zIDwtIGFwcGx5KG1hdHJpeCwgMSwgZnVuY3Rpb24oeCl7Y29yKGdlbmUsIHgpfSkKYGBgCgpgYGB7cn0KcHJpbnQoYXMuZGF0YS5mcmFtZShzb3J0KGNvcnJlbGF0aW9ucywgZGVjcmVhc2luZz1UKSkpCmBgYAoKCmBgYHtyfQojbWF5YmUgbWFrZSBnZW5lcGxvdCBwZXIgZGVwb3QgYXMgd2UgaGF2ZSBhIGxvdCBvZiBjZWxscwphbGwxMHggPC0gU2V0QWxsSWRlbnQoYWxsMTB4LCBpZD0nc2FtcGxlX25hbWUyJykKCnBlcmkgPC0gU3Vic2V0RGF0YShhbGwxMHgsIGlkZW50LnVzZSA9ICdQZXJpJykKc3VwcmEgPC0gU3Vic2V0RGF0YShhbGwxMHgsIGlkZW50LnVzZSA9ICdTdXByYScpCnN1YnEgPC0gU3Vic2V0RGF0YShhbGwxMHgsIGlkZW50LnVzZSA9ICdTdWJxJykKdmlzY2UgPC0gU3Vic2V0RGF0YShhbGwxMHgsIGlkZW50LnVzZSA9ICdWaXNjZScpCgpHZW5lUGxvdChTZXRBbGxJZGVudChwZXJpLCBpZD0nc2FtcGxlX25hbWUnKSwiRUJGMiIsIlBQQVAyQiIsIGRvLmhvdmVyPVQpCmBgYAoKYGBge3J9CkdlbmVQbG90KFNldEFsbElkZW50KHN1cHJhLCBpZD0nc2FtcGxlX25hbWUnKSwiRUJGMiIsIlBQQVAyQiIsIGRvLmhvdmVyPVQpCmBgYAoKYGBge3J9CkdlbmVQbG90KFNldEFsbElkZW50KHN1YnEsIGlkPSdzYW1wbGVfbmFtZScpLCJFQkYyIiwiUFBBUDJCIiwgZG8uaG92ZXI9VCkKYGBgCgoKYGBge3J9CkdlbmVQbG90KFNldEFsbElkZW50KHZpc2NlLCBpZD0nc2FtcGxlX25hbWUnKSwiRUJGMiIsIlBQQVAyQiIsIGRvLmhvdmVyPVQpCmBgYAoKYGBge3J9CkdlbmVQbG90KFNldEFsbElkZW50KHBlcmksIGlkPSdzYW1wbGVfbmFtZScpLCJFQkYyIiwiQUtBUDEyIiwgZG8uaG92ZXI9VCkKYGBgCgpgYGB7cn0KR2VuZVBsb3QoU2V0QWxsSWRlbnQoc3VwcmEsIGlkPSdzYW1wbGVfbmFtZScpLCJFQkYyIiwiQUtBUDEyIiwgZG8uaG92ZXI9VCkKYGBgCgpgYGB7cn0KR2VuZVBsb3QoU2V0QWxsSWRlbnQoc3VicSwgaWQ9J3NhbXBsZV9uYW1lJyksIkVCRjIiLCJBS0FQMTIiLCBkby5ob3Zlcj1UKQpgYGAKCmBgYHtyfQpHZW5lUGxvdChTZXRBbGxJZGVudChwZXJpLCBpZD0nc2FtcGxlX25hbWUnKSwiRUJGMiIsIkFLQVAxMiIsIGRvLmhvdmVyPVQpCmBgYAoKYGBge3J9CkdlbmVQbG90KFNldEFsbElkZW50KHN1cHJhLCBpZD0nc2FtcGxlX25hbWUnKSwiRUJGMiIsIkFLQVAxMiIsIGRvLmhvdmVyPVQpCmBgYAoKYGBge3J9CkdlbmVQbG90KFNldEFsbElkZW50KHN1YnEsIGlkPSdzYW1wbGVfbmFtZScpLCJFQkYyIiwiQUtBUDEyIiwgZG8uaG92ZXI9VCkKYGBgCgoKCmBgYHtyfQpHZW5lUGxvdChTZXRBbGxJZGVudCh2aXNjZSwgaWQ9J3NhbXBsZV9uYW1lJyksIkVCRjIiLCJBS0FQMTIiLCBkby5ob3Zlcj1UKQpgYGAKCmBgYHtyfQpHZW5lUGxvdChTZXRBbGxJZGVudChwZXJpLCBpZD0nc2FtcGxlX25hbWUnKSwiRUJGMiIsIlBER0ZSQSIsIGRvLmhvdmVyPVQpCmBgYAoKYGBge3J9CkdlbmVQbG90KFNldEFsbElkZW50KHN1cHJhLCBpZD0nc2FtcGxlX25hbWUnKSwiRUJGMiIsIlBER0ZSQSIsIGRvLmhvdmVyPVQpCmBgYAoKYGBge3J9CkdlbmVQbG90KFNldEFsbElkZW50KHN1YnEsIGlkPSdzYW1wbGVfbmFtZScpLCJFQkYyIiwiUERHRlJBIiwgZG8uaG92ZXI9VCkKYGBgCgpgYGB7cn0KR2VuZVBsb3QoU2V0QWxsSWRlbnQodmlzY2UsIGlkPSdzYW1wbGVfbmFtZScpLCJFQkYyIiwiUERHRlJBIiwgZG8uaG92ZXI9VCkKYGBgCgo=